home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / util / cli / ScreenShuffle.lha / ScreenShuffle.e < prev    next >
Text File  |  1997-08-05  |  454b  |  26 lines
  1.  
  2. MODULE 'intuition/screens'
  3.  
  4. PROC main()
  5.  
  6.     DEF scr:PTR TO screen, args:PTR TO LONG, rdargs:PTR TO LONG
  7.  
  8.     IF rdargs:=ReadArgs('SCREEN/A,BACK/S', args:=[0, FALSE]:LONG, NIL)
  9.  
  10.         IF (scr:=LockPubScreen(args[0]))
  11.  
  12.             IF (args[1]<>NIL) THEN ScreenToBack(scr) ELSE ScreenToFront(scr)
  13.  
  14.             UnlockPubScreen(NIL, scr)
  15.  
  16.         ENDIF
  17.  
  18.         FreeArgs(rdargs)
  19.  
  20.     ENDIF
  21. ENDPROC
  22.  
  23. -> static data
  24. CHAR '$VER: ScreenShuffle 0.2 (5.8.97)'
  25.  
  26.